#!/usr/bin/perl
#
use strict;
use warnings;

use JIRA::Client;
use Data::Dumper;
 
my $jira = JIRA::Client->new('http://jira.addteq.com', 'sumbal', 'changeme');

my $issue = eval { $jira->getIssue('EMSPERL-100') };
die "Can't getIssue(): $@" if $@;

print Dumper($issue);
